home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir31 / acdkit10.zip / PDS.ZIP / ACDKIT.BI < prev    next >
Text File  |  1994-11-01  |  3KB  |  68 lines
  1. DEFINT A-Z
  2. REM $DYNAMIC
  3.  
  4. CONST CDINSTALLED% = &H1
  5. CONST CDPLAYING% = &H2
  6. CONST CDPAUSED% = &H4
  7. CONST CDOPEN% = &H8
  8. CONST CDLOCKED% = &H10
  9.  
  10. TYPE trackinfo
  11.  cmd AS STRING * 1
  12.  track AS STRING * 1
  13.  tframe AS STRING * 1
  14.  tsec AS STRING * 1
  15.  tmin AS STRING * 1
  16.  dummy AS STRING * 1
  17.  control AS STRING * 1
  18.  absframe AS LONG
  19. END TYPE
  20.  
  21. TYPE cdInfoTYPE
  22.  status AS INTEGER            ' status of the driver
  23.  track AS INTEGER             ' current track number
  24.  frame AS LONG                ' current absolute frame number
  25.  cdMin AS INTEGER             ' cd position (minutes)
  26.  cdSec AS INTEGER             ' cd position (seconds)
  27.  cdFrame AS INTEGER           ' cd position (frames)
  28.  TrackMin AS INTEGER          ' track position (mins)
  29.  TrackSec AS INTEGER          ' track position (seconds)
  30.  TrackFrame AS INTEGER        ' track position (frames)
  31.  cdMins AS INTEGER            ' cd length (mins)
  32.  cdSecs AS INTEGER            ' cd length (seconds)
  33.  cdFrames AS INTEGER          ' cd length (frames)
  34.  TrackMins AS INTEGER         ' track length (mins)
  35.  TrackSecs AS INTEGER         ' track length (seconds)
  36.  TrackFrames AS INTEGER       ' track length (frames)
  37. END TYPE
  38.  
  39. DECLARE SUB cdGetInfo (BYVAL drive%, BYVAL track%, cd AS cdInfoTYPE, tracklist() AS trackinfo)
  40. DECLARE SUB cdDoor (BYVAL drive%, BYVAL cmd%)
  41. DECLARE SUB cdPause (BYVAL drive%)
  42. DECLARE SUB cdPlayFrames (BYVAL drive%, BYVAL frame&, BYVAL lframe&)
  43. DECLARE SUB cdPlayMSF (BYVAL drive%, BYVAL mins%, BYVAL secs%, BYVAL frame%, BYVAL lmin%, BYVAL lsec%, BYVAL lframe%)
  44. DECLARE SUB cdPlay (BYVAL drive%, BYVAL track%, BYVAL tracks%, tracklist() AS trackinfo)
  45. DECLARE SUB cdInit (BYVAL drive%, tracklist() AS trackinfo)
  46. DECLARE SUB cdReset (BYVAL drive%)
  47. DECLARE SUB cdResume (BYVAL drive%)
  48. DECLARE SUB cdSeek (BYVAL drive%, BYVAL track%, tracklist() AS trackinfo)
  49. DECLARE SUB cdSeekFrame (BYVAL drive%, BYVAL frame&)
  50. DECLARE SUB cdSeekMSF (BYVAL drive%, BYVAL mins%, BYVAL secs%, BYVAL frame%)
  51. DECLARE SUB cdStop (BYVAL drive%)
  52. DECLARE SUB cdGetVolume (BYVAL source%, left1%, right1%, left2%, right2%)
  53. DECLARE SUB cdSetVolume (BYVAL source%, BYVAL left1%, BYVAL right1%, BYVAL left2%, BYVAL right2%)
  54. DECLARE SUB sbGetVolume (BYVAL source%, leftV%, rightV%)
  55. DECLARE SUB sbSetVolume (BYVAL source%, BYVAL leftV%, BYVAL rightV%)
  56.  
  57. DECLARE FUNCTION cdMediaChanged% (BYVAL drive%)
  58. DECLARE FUNCTION cdStatus% (BYVAL drive%)
  59. DECLARE FUNCTION GetFirstCdrom% ()
  60. DECLARE FUNCTION GetMscdexVersion% ()
  61. DECLARE FUNCTION GetNumCdroms% ()
  62. DECLARE FUNCTION IsAudio% (BYVAL drive%)
  63. DECLARE FUNCTION IsMscdex% ()
  64. DECLARE FUNCTION IsSB% ()
  65. DECLARE FUNCTION MSFtoFrame& (BYVAL mins%, BYVAL secs%, BYVAL frame%)
  66. DECLARE SUB FrameToMSF (BYVAL frame&, mins%, secs%, frames%)
  67.  
  68.